home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Modify / l-tie < prev   
Lisp/Scheme  |  1998-08-11  |  591b  |  14 lines
  1. l-tie pattern
  2.  
  3. This function is able to produce unique lists of note-length values that simulate the tieing of note-length patterns to create larger but less frequent values; their combined length in total within a list remains constant to that of the original list.
  4.  
  5. (setq list1 (qlength '((8-11) (20-11111) (8-11) (12-111))))
  6. (setq list2 (qlength '((8-1101) (20-11110) (8-1101) (12-110) (4-012))))
  7.  
  8. (l-tie list1)
  9. => ((1/8) (7/40) (1/20 1/20 1/20) (7/40) (5/24) (1/12 1/12))
  10.  
  11. (l-tie list2)
  12. => ((1/8 1/8 -1/8) (7/40) (1/20 1/20 1/20 -1/20)
  13.     (1/8 1/8 -1/8) (5/24) (1/12) (-1/3) (1/4 2/4))
  14.